module vuty
  !
  ! Fortran Interface for vutyA.s
  !
  !
  ! LICENSE AGREEMENT:
  !
  ! You agree that we don't agree to anything.
  !
  !
  ! DISCLAIMER OF WARRANTIES:
  !
  ! This software is provided to you "AS IS," and the authors and
  ! contributors disclaim any warranty or liability obligations to you
  ! of any kind, implied or express, including but not limited to the
  ! warranties of merchantability, fitness for a particular purpose,
  ! and non-infringement.
  ! 
  implicit none
  interface
     subroutine initenvv(a,b)
       integer,intent(in),value::a,b
     end subroutine initenvv
  end interface
  interface
     subroutine addps(n,a,b,m,len)
       integer,intent(in)::n
       real*4,intent(in)::a ! vector
       real*4,intent(in)::b ! scalar
       integer,intent(in)::m
       integer,intent(in)::len
     end subroutine addps
  end interface
  interface 
     subroutine muladdpsl(n,pa,pb,m,pc)
       integer,intent(in),value::n,pa,pb,m,pc
     end subroutine muladdpsl
  end interface
  interface 
     subroutine muladdps(n,pa,pb,m,pc)
       integer,intent(in),value::n,pa,pb,m,pc
     end subroutine muladdps
  end interface
  interface 
     subroutine muladdpsl2(n,pa,pb,m,pc)
       integer,intent(in),value::n,pa,pb,m,pc
     end subroutine muladdpsl2
  end interface
  interface 
     subroutine muladdps2(n,pa,pb,m,pc)
       integer,intent(in),value::n,pa,pb,m,pc
     end subroutine muladdps2
  end interface
  interface 
     subroutine divps(pa,pb,n,pc)
       integer,intent(in),value::pa,pb,n,pc
     end subroutine divps
  end interface
  interface 
     subroutine muldivps(pa,pb,n,pc)
       integer,intent(in),value::pa,pb,n,pc
     end subroutine muldivps
  end interface
  interface 
     integer function get_cpuid(buf,eax)
       integer*4,intent(out)::buf(4)
       integer,intent(in),value::eax
     end function get_cpuid
  end interface
  interface 
     subroutine fxsave(pbuf)
       integer,intent(in),value::pbuf
     end subroutine fxsave
  end interface
  interface 
     subroutine setdaz(pbuf)
       integer,intent(in),value::pbuf
     end subroutine setdaz
  end interface
end module vuty
